home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TUNEIN01.DIR / 00179_Script_179 < prev    next >
Text File  |  1995-06-01  |  808b  |  31 lines
  1. on mouseDown
  2.   global clickedSprite
  3.   set clickedSprite = 18
  4.   set the puppet of sprite clickedSprite = true
  5.   set the castnum of sprite clickedSprite = the number of cast "video close clicked"
  6.   puppetsound "click"
  7.   updatestage
  8.   starttimer
  9.   repeat while the timer < 20
  10.   end repeat
  11. end
  12.  
  13. on mouseUp
  14.   global clickedSprite, thisVideo, lastVideo
  15.   set the castnum of sprite clickedSprite = the number of cast "video close"
  16.   set the movierate of sprite 19 = 0
  17.   puppetsound "click"
  18.   updatestage
  19.   starttimer
  20.   repeat while the timer < 20
  21.   end repeat
  22.   set the puppet of sprite 18 = false
  23.   set the puppet of sprite 19 = false
  24.   puppetSound "zoom close"
  25.   updatestage
  26.   set the cursor of sprite 17 to 0
  27.   set the cursor of sprite 18 to 0
  28.   go to frame "video "&lastVideo
  29. end
  30.  
  31.